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{SX-} 
PROGRflM Edit; 

{Edit -- fl snail sanple qpplication written in Pascal } 
by Macintosh User Education } 

USES {SU-} 

(SU Ob j /QuickDraw } QuickDraw, 

(SU Obj/OSIntf } OSIntf, 

{SU Obj/Toollntf } Toollntf; 

CONST 

last Menu = 3; { nunbcr of nenus } 
oppleMenu = 1; { nenu ID for desk accessory nenu } 
fileMenu = 256; { nenu ID for File nenu } 
editMenu = 257; { nenu ID for Edit nenu } 

VflR 

nyMenus: HRRflY [1. .lastMenu] OF MenuHondle; 
screenRect, dragRect,pRect: Rect; 
doneFlag, ter^): BOOLEflN; 
HyEvent: EventRccord; 
code, ref Nun: INTEGER; 
wRecOrd: VindowRecord; 
nyWindow, vrtiichWindow: WindowPtr; 
theMenu, thelten: INTEGER; 
hTE: TEHondle; 

PROCEDURE SetUpMenus; 

{ Once -only initialization for nenus } 

VHR 

i: INTEGER; 
q)pleTitle: STRIN6[1]; 

BEGIN 

InitMenus; { initialize Menu Manager } 

oppleTitle := ' '; q)pleTitle[l] :' CHR(q)pleSynbol); 

nyMenus[l] := NewMenu(appleMenu, q)pleTitle); 

flddResMenu(nyMenus[l], 'DRVR'); { desk accessories } 

nyMenus [21 := GctMenu( fileMenu ); 

nyMenus [3] := 6etMenu( editMenu); 

FOR i :* 1 TO lastMenu DO InsertMenu(nyMenus[i],0); 

DrawMenuBar; 
END; { of SetUpMenus } 

PROCEDURE DoConnand(nResult: Longint); 

VRR 

none: STR255; 

BEGIN 

theMenu := HiWord(nResult); thelten := LoWord(nResult). 
CBSE theMenu OF 

oppleMenu: 
BEGIN 

GetIten(nyMenusIl],theIten,nane); 
refNun :- OpenDeskflcc(nane); 
END; 

fileMenu: doneFlag := TRUE; { Quit } 

editMenu: 
BEGIN 

IF NOT SystenEdit(thelten-l) THEN 
BEGIN 
SetPort(nyWindow); 
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CflSE thelten OF 

1: TECut(hTE); 

2: TECopy(hTE); 

3: TEPaste(hTE); 

END; { of iten case } 
END; 
END; { of editMenu } 

END; {of nenu case } 
HiliteMenu(O); 

END; { of DoConnond } 

BEGIN { ncdn program } 
Ini tGr of (athePort ); 
InitFonts; 

FlushEvents(everyEvent, 0); 
InitWindows; 
SetUpMenus; 
TEImt; 

InitDialogs(NIL); 
InitCursor; 

screenRect := screenBits. bounds; 

SetRect (dragRect, 4, 24, screenRect. right-4, screenRect. hot ton-4); 

doneFlag := FALSE; 

HyWindow := GetNewWindow(256,awRecord,P0INTER(-l)); 
SetPort(nyWindow); 

pRect := thePort'.portRect; 
InsetRect(pRect,4,0); 
hTE := TENew(pRect,pRect); 
REPEflT 

SystenTask; 

TEIdle(hTE); 

tenp := GetNextEvent(everyEvent,nyEvent); 

CflSE nyEvent.what OF 

nouseDown: 
BEGIN 

code := FindWindow(nyEvent. where, whichWindow); 
CBSE code OF 

inMenuBar : DoConnand(MenuSelect (nyEvent . where)); 

inSysWindow: SystenClick(nyEvent, whichWindow); 

inDrag: DragWindow(whichWindow, nyEvent . where, dra^ect ), 

inGrow, inContent: 
BEGIN 
IF whichWindowOFrontWindow THEN 

SelectWindow(whichWindow) 
ELSE 

BEGIN 

GlobalToLocal (nyEvent. vrtiere); 

TEClick(nyEvent. where, FALSE, hTE); 

END; 
END; 

END; { of code case } 
END; {of nouseDown } 
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END. 



keyDown, autoKey: 

IF nyWinciow=FrontWindow THEN 

TEKey(CHR(nyEvent.nessage MOD 256), hTE); 

activateEvt: 

IF ODD(nyEvent.nodifiers) { window is beconing active } 
THEN 

TEflctivate(hTE) 
ELSE 

TEDeactivate(hTE); 

updateEvt: 
BEGIN 

SetPor t (nyWindow); 
BeginUpdate(nyWindow); 
TEUpdate(thePort*.portRect,hTE); 
EndUpdate (nyWindow); 
END; { of updateEvt } 

END; { of event case } 

UNTIL doneFlag; 
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* EditResDef -- Resource input for snail sonple application 

• Written by Macintosh User Education 

Exanple/Edit.Rsrc 

Type MENU 
.256 
File 
Quit 

.257 
Edit 

Cut 

Copy 

Paste 

Type WIND 
,256 

fl Sanple 
50 40 300 450 
Visible NoGoflway 



Type EDIT = STR 

.0 

Edit Version 1.0 - 12 Decenber 83 

Type CODE 
Exanple/editL 
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End of Document 
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